open(FILEHANDLE, "+<hello.asm") or die "can't open : $!\n";
@content= <FILEHANDLE>;
seek FILEHANDLE, 0, 0;
foreach  (@content) {
  s/;.*//ig; 
  print FILEHANDLE ;
}
truncate(FILEHANDLE,tell(FILEHANDLE));
close(FILEHANDLE);