perl -E 'say q(a$) =~ q(a[$]) ' 1