#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my @temp = do { no warnings 'qw';
                qw( a b c #%# #%#a #%#b ) };

@temp = grep /#%#/ && ! /#%#$/, @temp;

say "@temp.";
[download]

#%#a #%#b.
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]