use strict;
use warnings;

my $str = 'AFNMIWEBFASBPMLASIFBYRW';
my $mid = 'I';
my @sorting;

push @{$sorting[($_ cmp $mid) + 1]}, $_ for split '', $str;
$str = join '', @{$sorting[1]}, (sort @{$sorting[2]}), (sort @{$sorting[0]});

print $str;