можно так?
$ua->head(@_[0])->as_string=~/401|200/

genom--
ActivePerl
This is perl, v5.10.0 built for MSWin32-x86-multi-thread