$ perl -MO=Deparse,-p -e '$one_line =~ /a/i && /e/i && /i/i && /o/i && /u/i' ((((($one_line =~ /a/i) and /e/i) and /i/i) and /o/i) and /u/i); ...