#!/usr/bin/perl -n
use 5.10.0;
say m/[^.?!]+\?/g