grep s/\D//g && f( $_ ) > $_, @source;