#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

my $dir = "usr/bin/Test_Protokoll"

my $001= "prob_001";
my $002= "prob_002";
my $003= "prob_003";

@filter: ("001", "002", "003");

#Brainextraction
foreach ("001", "002", "003")
{
   system ("bet SYNT_MPRAGE_T1_PD_B0corr YNT_MPRAGE_T1_PD_B0corr_brain -m");
}