ID5144.C2039 
ID5141.C2039
ID5142.C1221

my ($first, $second) = map {s/.*\.//; $_} split ' ';