or download this
perl -MTerm::ReadLine -E "BEGIN{$ENV{PERL_RL}='Perl';$ENV{TERM}=''} $
+term = Term::ReadLine->new(); $txt='spaghetti,pomodoro,vino'; $txt=$t
+erm->readline('edit:',$txt); say 'new:',$txt"
edit:spaghetti,pomodoro,vino # you now edit the line erasing 'pomodor
+o' and hit RETURN
new:spaghetti, vino