Code: Perl
$line =~ /^cn=(\w+)([\d.]+)/;
print $2;

Last edited by pradeep; 27Oct2009 at 17:28.. Reason: Code block