if($line =~ /^Ouput/) { chomp $line; #To delete any newline character at the end of line to appear in outputInfo my $outputInfo = $line; $outputInfo =~ s/^Ouput: //; print "\n$outputInfo"; }