#!/usr/bin/perl -w use strict; use warnings; my $file = "./max/base/file.c: \$(ROOT)/../../../api/maX \\"; $file = substr $file, 25; print "$file\n"; #### $(ROOT)/../../../api/maX \