if ($line =~ /\s(.*)$/){ if($1 =~ /\s(.*)$/){ if($1 =~ /\s(.*)$/){ print $1; print "\n"; } } }