my $n= x('AUbla bla bla bla');
print $n;


sub x {
    my @fucntion64= @_;
foreach my $j (@fucntion64)
            {
            if(substr($j,0,2) eq "AU") {
            my($item,$title) = split(' ',substr($j,2),2);
            return $title."<br />";
            }
	    }
}

# prints 
bla bla bla<br />