#!/usr/bin/perl -w
use strict;

# Your code

$delimiter = quotemeta $delimeter;
my @array = split ( /$delimiter/, $line );