se strict;
use warnings;

my @subjects = qw(abc_001 abc_002 abc_003);

foreach my $subject (@subjects) {
    chdir($subject) or die "Konnte Verzeichnis $subject nicht öffnen";

    foreach ( "T1_Map", "T2_Map", "PD_Map", "T2STAR_Map" ) {
        system("fslreorient2std $_.nii.gz $_._swapped.nii.gz");
        system("bet $_._swapped.nii.gz $_._swappedbrain.nii.gz -m");
    }

    chdir("..");
}