>perl -wMstrict -le
"my $str = 'XXX@okYYY';
 my @pieces = split /\@ok/, $str;
 printf qq{'$_' } for @pieces;
"
'XXX' 'YYY'