#!/usr/bin/perl -w
$one = 'qwF12F3gh'; # Считываем примеры
$two = 'FqwF12F3gh'; # В переменные
for $example ($one, $two){ # Проходимся по обоим примерам в цикле
$first = substr($example, 0, 1); # Считываем первый символ в переменную $first
$example =~ s/\D//g; # Удаляем из строки все, что не является числом
if($first eq 'F'){ # Если первый символ равен "F"
$example = 'F' . $example; # Возвращаем его обратно в строку
}
}
print 'qwF12F3gh', ' -> ', $one;
print 'FqwF12F3gh', ' -> ', $two;
# Результат
# qwF12F3gh -> 123
# FqwF12F3gh -> F123