#!/bin/perl -w

use strict;

my $file = shift or die;

open my $fh, '<', $file;

while (<$fh>) {
  while (m|<a href="http://my\.bakugan\.com/(.+?)">.+?</a></div></div>|g) {
    print $1 . "\n";
  }
}