Select Code to Download

my $page2 = "Account number 12345678";

if ( my ($acct) = $page2 =~ /Account number (.*)/ ) {
   print "acct = $acct\n";
}