my $line = q{Perl is a thing I like to do.};
print split /i/, $line;
print split /(i)/, $line;
__END__
Perl s a thng I lke to do.
Perl is a thing I like to do.