use strict;
use warnings;

my ($SFS, $device);

$SFS = join '', <DATA>;
while ($SFS =~ m|<a name="(.*?)"|sg) {
    $device = $1;
    print "$device\n";
}

__DATA__
<a name="alpha"></a>
<a name="bravo"></a>
<a name="charlie"></a>