my $string = "foo bar baz blah Total Cost: 480 foo foo foo";
my ($cost) = $string =~ /Total\s+Cost:\s*(\d+)/;
$cost ||= 0;