Поиск строки в perl

Что то ты не то натворил!

# Это загрузка
open(FILE,"file_name") or die;
undef($/);
$Data = <FILE>;
$/ = "\n";
close(FILE);

# Это поиск
$Data =~ m/aaa/g;
$Data =~ m/bbb/g;

print pos($Data) . "\n";

Данный код выводит первое вхождение строки "bbb" после первого вхождения строки "ааа" в переменной $Data

$str = "";
while (defined($str_next = <>) && ($str !~ /^searched string$/)) {
    $str = $str_next;
}
print $str_next;