$s += (s/\w+//g) while <DATA>;
print "amount: $s\n";

__DATA__
Your excuses, Sir, are
actually somewhat funny.
But in reality you should
apply a bit of yourself,
or eventually you may get nothing.