while ($content =~ /^[\w]+?([VMFWLCA]{8,})[\w]+?$/mg) {
    my $sequence = $1;
    print $header, "contains $sequence at position ", pos($content) - length($sequence), "\n";
}