Szia!

Ha a számok kellenek, akkor ezt a reguláris kifejezést tudom javasolni:
$sor =~ m/^[^\d]*(\d{3})/;
$szam = $1;

Ha a tényleg a pozíció érdekel:
$sor =~ m/^([^\d]*)\d{3}/;
$poz = length( $1 );

És ezt lehet kombinálni is.
$sor =~ m/^([^\d]*)(\d{3})/;
$poz = length( $1 );
$szam = $2;

Ajánlott olvasmány, ha Perlben sztringeket kell szabni-varrni:
http://perldoc.perl.org/perlre.html

Üdv: Mijo