- or download this
foreach $line (@array)
{
$line =~ s/\s{1}//g;
}
- or download this
#!/usr/local/bin/perl -w
use strict;
...
print OUTFILE "@array\n"; # or whatever has to be done
}
- or download this
#!/usr/local/bin/perl -w
use strict;
...
print "@array\n"; # or whatever has to be done
}