if ($loop_line =~/\[(.*)\]/)
{
    my $replace = $1;
    $loop_line =~s/$replace/$replace_with/;
}