##
## my $str = $other_scripts_input; my $newstr; $newstr =~ s/([^\d\.]+)/g; print "
";
![](\"http://www.someurl.com/perl.cgi?amount=$newstr\")
";