##
## $line =~ /
/i) print $1;