parsing text....

[broloc]

needd help....

i have a problem using to parse the data from the file.
could some one please help me....
i got a text file named 'nmap.txt'with the data:

80/tcp http
23/tcp telnet

what i'm going to do is read the data from the file using regular expression. so my output should be like this:
80/tcp
23/tcp

how can i do that?
could someone please help me because i'm a beginner with this perl

 

[svar]

This should do it...(ther are many more ways)

open(IN,"$myinput_file&quot or die "cannot open $myinput_file\n";
open(OUT,">RESULTS&quot or die "cannot open RESULTS\n";
while(<IN>){chomp;
my $line=$_;
#just in case ther are leading spaces, remove them
$line=~s/^\s+//;
# if you see a blank line skip it
next unless $line;
die &quot;unexpected input $line\n&quot; unless $line=~/(.*)\s+(.*)/;
my $first=$1;
print OUT &quot;$first\n&quot;;}
close(IN);close(OUT);

svar