Select Code to Download

$HTML = HTTP::Request->new( GET => $MARC_page );
$HTML = $user_agent->request($HTML);
$HTML = $HTML->content;

if ($HTML =~ m{
        245\d{0,2}  # MARC code 245 followed by 0-2 indicators
...
    else {
            $title = MARC::Field->new('245','','', 'a' => "field does 
+not exist");
    }