in reply to Re: Using perl interactively with VI
in thread Using perl interactively with VI

The regular expression also removes the question mark, which should remain. 
  s/\?.*/?/

[download]

In Section Seekers of Perl Wisdom