use Modern::Perl; while () { chomp; next if /^[s][0|6]00[0-9]{2}/; next unless /(\d{2})$/; say "$_ -> $1"; } __DATA__ s00023 s50012 s600ad s00012 abc-def-123456