#!/usr/bin/perl -w use strict; my($line); while(defined($line=)) { if($line =~ /^(.*)