I have answered the question myself.

perl -le '$a = join " ", grep {  $_ == 4 } (4); $b = join " ", grep { 
+ $_ == 7 } (7); $c = $b-$a; print $c;'
[download]